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PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
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PL 
PL 
PL 
PL 
PM 
PM 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PAS 
PMS 
PM: 
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PMS 
PM 
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**F ILE**1D**SUMMBUF F 
SSSSSSSS UU UU MM MM MM MM BBBBBBBB UU UU FFFFFFFFFF FFFFFFFFFF 
SSSSSSSS UU UU MM MM MM MM B88BBBBBB UU UU FFFFFFFFFF FRFRFFFFFF 
SS UU UU MMMM MMMM MMMM MMMM «BB BB UU UU FF FF 
SS UU UU MMMM MMMM 6MMMM MMMM 6BB BB UU UU FF FF 
SS UU MM MM MM MM BB BB UU UU FF FF 
SS UU UU MM MM MM MM OMM OMM «OBB BB UU UU FF FF 
SSSSSS UU MM MM MM MM 88BB8BBBB UU UU FFFFFFFF FFFFFFFF 
SSSSSS UU UU MM MM MM MM BBBBBBBB UU UU FFFFFFFF FFFFFFFF 
SS UU MM MM MM MM BB BB UU UU FF FF 
SS UU UU MM MM MM MM BB BB UU UU FF FF 
SS UU UU MM MM MM MM BB BB UU UU FF FF eeee 
SS UU UU MM MM MM MM BB BB UU UU FF FF eeee 
SSSSSSSS UUUUUUUUUU MM MM MM MM BBBBBBBB UUUUUUUUUU OFF FF eoee 
SSSSSSSS UUUUUUUUUU MM MM MM MM BBBBBBBB UUUUUUUUUU FF FF eees 
LL IIIT] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] SS 
LL Il SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 
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SUMMBUF F - Multi-file Summary Buffer Routines 16-SEP-1984 


:06:47 VAX/VMS Macro v04-00 Pa 1 
v04-000 -SEP-1984 $5: 741 (CMONTOR.SRCJSUMMBUFF .MAR; 1 ™ (1) 
-TITLE ett - Multi-file Summary Buffer Routines 
-IDENT ‘v04-000' 


BARBARA AASARALASARAAALAALELA LE SAL SELES ESA L EL ERE ERR RES REESE RES EEE ESSER REE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONL ACCORDANCE 


Bete Ge Ge Ge Ge Ge Ge Ge Ge ee 


SOOQooooooooooooooooo 
SOOCOoCooooooooooooooo 
OOoooooooooooooooooo 
pelelelelelelelelelelelelolelolololola) 


4 
5 & 
* o 
i. ; 
8 ;* * 
9 ;* * 
10 ;* * 
11 3* a 
1 ® Y IN C NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1 TRANSFERRED. * 
> a 
18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i444 $9 3* CORPORATION. . 
3* 4 
0000 2 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;3* * 
0000 25 ;* * 
44 $8 PRR RAAR EERE RARE AAA AAAAE AA AAAAT ARTA eee eee eee eee 
0000 28 3 ++ 
0000 29 ; FACILITY: VAX/VMS MONITOR Utility 
0000 30 ; 
0000 31 ; ABSTRACT: 
0000 3 3 
0000 § The routines in the SUMMBUFF module manipulate the multi-file 
0000 34 ; summary buffer for each class. This buffer is designed to 
0000 35 : contain the accumulated sums of all counts and levels for 
0000 36 ;: all elements for all input files. 
0000 2 : 
0000 8 ; ENVIRONMENT: 
0000 39 ; 
464 re 3 User mode, IPL 0, unprivileged. 
0000 $5 ; AUTHOR: Thomas L. Cafarella, January, 1984 
0000 45 ; 
4 te ; MODIFIED BY: 
0000 46 ; v03-004 TLC1088 Thomas L. Cafarella 25-Jul-1984 14:00 
800 rt 3 Free virtual memory obtained for multi-file summary. 
0000 49 ; v03-003 TLC1071 Thomas L. Cafarella 17-Apr-1984 14:00 
a4 29 3 Add ‘‘number of input files’’ to multi-file summary report. 
$009 26 ; v03-002 TLC1074 Thomas L. Cafarella 04-May-1984 16:00 
4 a? ; Correct XQPCACHE multi-file summary floating overflow. 
200 38 5 v03-001 PRS1021 Paul R. Senn 12-Apr-1984 10:00 
it 28 3 Make SYSTEM class work with multi-file summary. 
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1984 08:0836 
V03-061 PRS1020 Paul R. Sen 12-Apr-1984 
Make XQP class work wfth aulti- “file summary. 


v03-001 TLC1061 Thomas L. Cafarella 18-Mar-1984 
Identify dual-path disks by allocation class. 


v03-001 TLC1060 Thomas L. Cafarella 12-Mar-1984 


Make multi-file summary work for homogeneous classes. 
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SUMMBUF F - Multi-file Summary Buffer Routines 16-SEP-1984 :06:47 VAX/VMS Macro v04-00 Page 
v04-000 DECLARATIONS : ety 7 85:98:27 MONTOR.SRCJSUMMBUF F .MAR; 1 ’ 3) 
~SBTTL DECLARATIONS 
0000 -PSECT MONRODATA,QUAD,NOEXE ,NOWRT 
8 ; INCLUDE FILES: 
0 oe 
0 SCDBDEF ; Define Class Descriptor Block 
SCDXDEF 3; Define CDB Extension 
SCSBDEF 3; Define Column Summary Block 
SIDBDEF : Define item descriptor block offsets 
SACADEF 3; Define Monitor Communication Area 
SMRBDEF ; Define Monitor Request Block 
SMBPDEF 3; Define Monitor Buffer Pointers 
SMF SDEF 3; Define Multi-File Summary Block 
Halts ; Define temporary storage offsets 
; Define temporary storage offsets 
STMSDEF Defi ff 


: MACROS: 


Local Macro Definitions 


: ALLOC Macro - Dynamically allocate space on the stack. 


»MACRO ALLOC LENGTH, RSLDESC ,,RSLBUF 
SUBL ty ap >&<*C3>,SP 


SOOO COOCOCSOOOCOOSOOOOSOOOSOOOSOSOOoOOSoOSO -! 
COOCCOC COCO GOSGOOCOOCOCSOOCOOCOOOOCOOOOoCOoOO =-« 
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3; escape character 


———§ ~DOOGD9O9000000000 0000009000900 0900 0909 0900 SIN NIN NI NNN NNO 
WR SO ODNAUE WIN DO OODNAU EWN | O ODNAU EWN 0 OONOUSWIN-O0 


0000 (1 IF NB, RSLBUF 
0000. «(1 MOVL SP, RSLBUF 
0000 1 -ENDC 
0000 1 PUSHL 
0000 (1 PUSHL #LENGTH 
0000 «(1 MOVL SP,RSLDESC 
0000 «(1 -ENDM ALLOC 
0000 1 
0000 : ; 
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Aild wt 
0000 »PSECT MONDATA,QUAD,NOEXE 
OWN STORAGE (Writeable): 
homey BYTE ; FAO ctrl str eoqnane to put one 
: 1 
$080 


10$-5$ i wee Line of dat 
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FILL_MFSUM_FAOSTK = Fill FAOSTK for M.F. 5=SEP-19 MONTOR.SRCJSUMMBUFF .MAR; 1 (4) 
~SBTTL FILL_MFSUM_FAOSTK = Fill FAOSTK for M.F. Summar 

0000 “BeECT SSRORCODE NOURT EXE . 


++ 


FUNCTIONAL DESCRIPTION: 
This routine is called to fill the FAOSTK with values 
to be presented to FAOL for output of the current page for the current 
class. The address of the CDB for the current class is passed 
as the first parameter to this routine. 
Rest is TBS. 
CALLING SEQUENCE: 
CALLS #4,FILL_MFSUM_FAOSTK 
INPUTS: 


4(AP) = address of a pointer to the CDB (Class Descriptor Block) 
for the class to process. 


8(AP) = address of byte containing starting column number. 

12(AP) = address of byte containing number of columns. 

16(AP) = address of byte containing statistics indicator. 
If low-order bit = 0, no additional statistics are displayed. 
If low-order bit = 1, additional statistics are displayed. 

IMPLICIT INPUTS: 
MRBPTR = pointer to MRB (Monitor Request Block) 
MFSPTR = pointer to MFS (Multi-File Summary Block) 


PERFTABLE - table describing each data item, indexed by 
item number ( * entry size) 


FAOSTK = buffer into which to store values for later FAOL call. 
OUTPUTS: 

None. 
IMPLICIT OUTPUTS: 


FAOSTK buffer is filled with arguments for an SFAOL call 
to display one page of the multi-file summary report. 


MFSSL_LWORDS set to number of longwords on FAOSTK for 
each element. 


ROUTINE VALUE: 
RO = SS$_NORMAL 
SIDE EFFECTS: 


C9O9 09 C969 0909 SII DDD DDD DDS TUT Be Be BS BB EE EWN OO 
ANE ADR 29 ODNOA UE WIN 0 OD NAME WIN OO ONAU EWN (OOO NOAU EWN 0 OONOUE WN O 
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J 16 
S FF - Multi-file Summar ffer Routines 16-SEP-1984 AX/VMS Macro Vv04-00 
rivet FILL_MFSUM_FAOSTK oye RYT FAOSTK for M.F. ae at 85: 88:2 MONTOR. SRC JSUMMBUFF .MAR; 1 
, 3 
8 ; None 
3 3; REGISTER USAGE: 
35 : RO = address of item number 
95 ; Ri = scratch, also input to CVTSTK subroutine 
94 ; Re = element index 
95 ; R35 = current column number 
00 39 : R4 = address of data for current in FAOSTR in summary buffer 
000 ms R5 = pointer to current longword 
8008 38 : Rg = address of CDB jor sfeee? to d ‘ort bs 
99 ; R? = address of Multi-File Summary Block (MFS) 
0000 00 ; R8 = address of temporary local data area 
0000 01 ; R9 = Number of elements to examine for this class 
0000 8 3 R10 = address of sunmsry uuffer for this class 
0000 03 ; R11 = scratch, in CVTSTK subroutine 
0000 Soe 3 
0000 05 ;-- 
0000 306 


SUMMBUF F = Mul 
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v04-00 FILL eye Pe Phoete toe green 1882 O5i05;c4 Bete mesure a 


TK for M.F. 5S MONTOR. SRC JSUMMBUF F .MAR; 1 (6) 


ze 
That 
ze. 
(| - 
“"e 
PS 
WAAAIANI WII MINI IPIPINIPINPIPIPINI NI 2 PS PP OO es nw OO COM 
=" 
x 


sENTRY FILL_MFSUM_FAOSTK, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 


56 04 BC dO MOVL a4 (AP) ,R6 ; Load CDB pointer 
ALLOC TM2$K_SIZE,RO,R8 ; Allocate local temp storage 
50 OQO000000'EF odd MOVL MFSPTR,RO 2 Get MFS pointer 
4 AQ D4 CLRL MF SSL_LWORDS (RO) ar count of longwords on FAOSTK 
18 A8& 0 a 08 MOVL MFSSL— “ELEMS (RO), TM2SL “euEMS URRY Get elements to display 
1 BNEQ 10$ ; Br ? have s some 
0129 = 31 BRW FMF_RET Else” go exit if none 


10$: 


MOVZBL @BCAP) ,THZSL START COL(RE) ; Get startin column number 
DECL TM2$L_ START (RB bones and make it zero-origin 
MOVZBL a1 CAP}. Mosee eS (RB) Get number of columns to display 


68 08 BC 9A 
04 a8 OC BC 9A 


Compute size of a column's worth of data in bytes 
(to be used Later). 


50 18 AB 00 
07 48 AB «605i 
50 00000000'8F 00 


08 AB «650 «2002S iC 
08 AB «804 «(4 


5A OC A600 


MOVL TM2$L_ELEMS(R8),R # of lwords for a column (hetero) 
BBC #CDB$T gone: cDést_ FLAGSERES 1583 Br if heterogeneous class 
MOVL #MAXELTS_MFS : # of lwords for a column (homog) 


ADDL3 #2,R0,TM2$L_COL_SIZE(R8) ; Include secs & collection counters 
MULL2 #4, TMCS$L_COC_SIZE(R8) ; ... translate to bytes 


MOVL CDBSA_SUMBUF (R6) ,R10 ; Load address of summary buffer 


15$: 


NR1D A RIPINPININININIG DW NNN PUNO ONINMOCO C-* 
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SUMMBUF F - Multi-file Summary Buffer Routines 16-SEP-1984 :06:47 VAX/VMS Macro V04-00 Page 1 
yOe-000 FILL MF SUM_F AOSTK oye FAOSTK for M.F. ety 7 95:98:27 MONTOR.SRCJSUMMBUFF .MAR; 1 . tg) 
4F 4 
4F 41 ; 
4F 42 ; For homogeneous classes, get summary buffer address; 
GF 45 ; then determine item type 
4F 44; 
tig 
31 48 AB. O5-~—séi; OF 23 BBC #CDBSV_HOMOG ,CDBSL_FLAGS(R6),20$ ; Br if not homog class 
21 A6 00 0054 348 MOVL  CDB$A_COX(R65 ,R1 ; Get CDX address 
0 O07 Al 9A 8 58 49 MOVZBL CDX$B~IDISCONSEC(R1) ,RO ; Get no. of curr display item 
50 od7 005C 50 DECL RO ; Decrement to make it zero-origin 
53 06 Al 9A B02 51 sy ie Epes IDISCT(R1) ,R3 ; Get number of items being displayed 
53 08 AB 53 C7 006 26 DIVL R , COBSL_SUMBUF (R6) ,R3 ; Compute size of sumbuf for one item 
Bee 5 3; Note -=- cannot have zero items 
53 g C4 0067 54 MULL2 R0O,R3 ; Compute distance to desired sumbuf 
SA 6A4 9E Boer 2? MOVAB (R10)CR3,R10 ; Get summ buff ptr for homog class 
006E 57: : 
006E 58 ; Now determine item type. 
ah 
53 O08 Al QA 006 61 MOVZBL CDXS$B_IDISINDEX(R1),R3 ; Get item index for this disp event 
50 1C B643 9A 007 306 MOVZBL @CDBSA_ITMSTR(R6)CR3J,RO ; Load IDB item number 
50 11 4¢4& 007 36 MULL2 #I1DB$K_ILENGTH,RO ; Compute index into IDB table 
50 O000'CF40 SE OO7A 364 MOVAB W*PERFTABLECROJ,RO : Address of IDB for this item 
1¢ AB OA AO BO 0080 65 MOVW IDB$W_TYPE(RO), - ; 
Boge 66 TM2$W~1TEM_TYPE (RB) ; Save item type for use below 
0085 368 20$: : 
0194 30 HF $93 BSBW ESTAB_FAOSTR ; Establish FAO ctrl substring 
0088 70 ; Note -- destroys all regs exc. 
0088 371 t .e- R6,RB,R10 
0088 372 
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SUMMBUF F - Multi-file Summary Buffer Routines 16-SEP-1984 02:06:47 VAX/VMS Macro v04-00 P 11 
04-000 FILL NFSUMLFAOSTR. FALL FAOSTE for M.F. SoSEP19R6 09205541 EMONYOR. caeiguMnGure mar:? 2% 13, 
0 74 ; 
0 75 ; Loop once for each element in this class, processing the summary buffer. 
0 6 ; For each column, convert the ‘‘sum'' number to an ‘‘average’’ by dividing 
0 77 ; by seconds or collections. Place the result in FAOSTK, as !ongword 
0 78 ; arguments for a subsequent call to $FAOL to display a single page of 
8 a ; the multi-file summary report. 
0 ee 
55 OQOQO00000°EF 0D 088 MOVAL FAOSTK,RS ; Load addr of buffer for FAO 
37 © Oo000000'EF DO e es MOVL MF SPTR.R? By Ft A ee eet estes 
59 18 A8 1 C3 96 5 SUBL3 #1, TM2$L_ELEMS(R8) ,RO ; Get number o alts t i Cl Limit) 
09 4B Ae 08 ET 009 Bg BBC  #COBSV_SYSCLS,CDBSL_FLAGS(R6), 30S . Br if not SYSTEM class. 
50. en a DE QO0A 8 MOVAL JIBSTR_SYS_ALL RO 3 SYS/ALL yt a is what we want 
4 11 BOA 5 308: BRB 5$ ; skip past use of CDB itemstring 
50 1C A6~ DO a 4 tts MOVL CDOBSA_ITMSTR(R6) ,RO ; Address of item-number string 
524 Bae 38 CLRL R2 ; Clear element index register 
QOAF $9 FMF _ELEM: 
11 48 A6 05 = =6E€0 OOAF 95 BS #COBSV_HOMOG, CDBSL_FLAGS(R6),10$ ; Br if a homogeneous class 
51 80 9A Q00B4 396 MOVZBL (RO)+, ; Get next item number 
51 11 C4 0087 97 MULL2 #IDBSK_ILENGTH,R1 ; Compute index into IDB table 
5B OQ000°CF41 9E OOBA 98 MOVAB W*PERF TABLE R14,R11 ; Address of IDB for this item 
1C AS OA AB BO O00CO 99 MOVW IDBSW_TYPE(R11), - 
00¢3 400 oa TM2$W~ITEM_TYPE (RB) ; Save item type for use below 
04 AB DS 00C5 40¢ " -TSTL «= TM2$L_COLS(R8) ; Any columns to display ? 
03 12 00C8 40 BNEQ 0$ ; Br if some 
0067 31 QOCA 404 BRW 0$ ; Else skip loop for this element 
B38 Sty 208: 
53 68 O01 C3: 00CD 407 SUBL3 #1,TM2$L_START_COL(R8),R3 ; Get starting col. no. (O-origin) 
00D1 408 3 «ee and make it 1 less than that. 
0001 409 3 eee Will regain 1 within loop 
51 53 08 AS C5 O0D1 410 MULL TM2$L_COL_SIZE(R8),R3,R1 ; Compute addr of data 
A 51 C1 Q0D6 411 ADOL R10,R 3 «e. for starting column 
Oc AB 4 OODA 41g as CLRL = TM2$L_COLS_USED(R8) : Init counter of columns used 
53 D6 QOODD 414 2 INCL R3 3; Point to next column number 
54 08 AB CO pant oi? ADDL2 TM2$L_COL_SIZE(R8),R4 ; ... and data for next column 
51 00990000 5 4 oF3 t19 MOVL CSBVEC_PTR,R1 ; Get ptr to CSB vector 
1 6143 OD EA 418 MOVL (R1)CR3),R rr and CSB for current column 
EA 20 A100 E0 OOER 419 BBS #CSBSV_ IGNORE CsB8B FLAGS(R1) ,30$ ; Ignore column if instructed 
51 4 08 a8 (C1 F 420 ADDL3 Test COL S12E(R ),R4,R1 ; Point to first byte after this column 
10 A8 FB Al DO OOFB 421 MOVL <-8(R 1M L_SECONDS(R8) ; Get second 
14 AB FC Al 00 FD 4 § MOVL ~4(R1), TM2SL_COLLS(R8) ; Get collection count 
1 199 & BEQL 60$ ; Br zero collections 
OA 4B A6 5 £0 0104 424 BBS #CDBSV_HOMOG, CDBSL_FLAGS(R6),35$ ; Br if ’ homogeneous class 
E1 0109 425 BBC #1D = ; Branch if this is not 
05 10 AB 108 4 $ IDB$B_FLAGS(R11),35$  ; a percent type computed item 
0047 30 01 [4 BSBW COMPUTED. ITEM_AVE : get average for computed item 
= if ? 3 355 BRB 0$ 3 and continue (R1 now contains average) 
51 6442 00 113 430 ; MOVL (R4)CR2),R1 ; Get floating sum of interest 


Woe=B00" 
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51 0A 


Multi-file Summar fer R eines’ 16-SEP 4 7 VAX/VMS Ma cro V04-00 Pp 1 SUP 
FILL AFSUMCRADSTR © FALL FAOSTE Toe M.F. SaSEPO1ORG 09:05:47 FMONYOR.cReaeuMMBurs mars? P29 18, vo4 
8 117.431 CMPW TM2$W_ITEM_TYPE(R8), #COUNT TYPE ; This item a apes: 

1 11D «4 ¢ BNEQ 40 : No == assume Level typ 
4 11F 64 DIVF TM2$L_ SECONDS (R8) ,R1 3; Yes -- get floating Hed rate/second 
11 0123 «434 BRB 50$ 3 eee and continue 


a a ae ae ee ee 5 Se ee 
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SUMMBUF F Multi-file Sunmar Buffer Routines 16-SEP=1 AX/VMS Macro V04-00 Page 13 SUM 
04-000 FILL _MF SUM_FAOSTK oy eiLL FAOSTK for M.F. §-8 EP-19 3b 83: 88:2 MONTOR.SRCJSUMMBUFF .MAR; 1 ° (10) V04 
1 436 40$: 
51 14 A8 46 | 3 i 508 DIVF TM2$L_COLLS(R8) ,R1 ; Compute floating avg size/collection 
51 1 129 4 § BSB CVTSTK 3; Convert and stack this number (in R1) 
0080 3 } 4 re 608 BSBW UPD_STATS ; Update MIN, MAX and TOT 
A9 0C AB 04 AB F2 OIZE rr AOBLSS m $L_COLS(R8), - 
0 r re 70$ M2$L_COLS _USED(R8) , 30$ 3 «ee and go back to get next column 
03 10 BC 00 4 134 9445 BBC #0 ai6tan) 80$ 3; Skip stacking stats if not requested 
00A2 30 o3¢ 446 ae BSBW = STACK_STATS : Convert & stack all 4 stats 
09 48 AB «=605~—S—tCE $1 C 448 BBS #COBSV_ HOMOG, CDBSL wassecgey fot de Br if ’ _nenapenneve class 
00 €1 0141 449 BBC #IDB$V~PC 5 h if this 
04 10 AB 0143 450 10B$8 “FLAGS(R11), 85$ : cereal type i item 
50 D6 3148 451 INCL RO : increment index into item table 
52.6 See 126 ass INCL R2 : increment index into data buffer 
FFSF 52 01 59 «FA bien eee ACBL R9,#1,R2,FMF_ELEM 3; Loop once for each element 
0150 456 FMF_RET: 
50 00000000'8F DO QO15C 457 MOVL #SS$_NORMAL ,RO ; Indicate success 
04 0157 458 RET 3 ee. and return 
0158 459 
0158 460; 
0158 461; 
0158 136 ; COMPUTED_ITEM_AVE = Do average computation for computed item 
0158 463; R2-= element index 
0158 464; Ri = address of data for current column in summary buffer 
0158 465; R1 (output) - calculated average 
0158 466; RIOR scratch (saved on stack) 
0158 467; 
0158 468 
0158 469 COMPUTED_ITEM_AVE: 
0158 470 
5A DD 0158 471 PUSHL R10 3 save R10 
5B ODD OQI15SA $76 PUSHL R11 3 save R11 
51 D4 O15C 47 CLRL R1 3 assume zero ave age 
5A 000043C8 BF 04 A442 45 O1SE 474 MULF3  4(R4)CR2],- : sum for item! +10 into R10 
8168 475 #100, R10 ; 
5B 08 A442 «50 0168 476 MOVE 8 (R4SCR2],R11 ; item2 into R11 
58 5 3190 477 TSTF R11 3; is R11 
06 =«1 is 478 BEQL 10$ : oktp divide if s 
51 5A 5B 47 O13 4} 108 DIVF3 R11,R10,R1 ; result of divide. into R1 
58 8EDO 0175 481 POPL R11 3; restore registers 
5A 8EDO B28 rt {| POPL R10 
05 \7e a RSB 3 exit 
O17 485 : CVTSTK - Convert e Tiseting longword input value to two longword 
17C $38 3 nteger values Rage gs the whole and fractional 
017C 848 : ee Also, place both in oper oe senguords into the 
17C 488 ; next suetlable slots in the 
17C 44 ; 
17C 490 : 
17 = 491 : part which is in tenths instead of the usual hundredths. 
17C 492; 
| 


; CVTSTK10 is an alternate entry point which stacks a fractional 
| 
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Summary Buffer 
AOSTK = Fill FAO 
493 ; 

494 ; 

495 ; 

138 : 

497 ; 

$28 

499 CVTSTK: 

289 PUSHL 
501 CVTFL 
be VTILF 

0 SUBF 3 

Be MULF 2 

5 CVTFL 
5 $ POPL 
5 RSB 
508 
509 CVTSTK10: 
510 PUSH 
511 CVTFL 
218 CVTLF 
51 SUBF 3 
514 MULF 2 
515 CVTFL 
516 POPL 
517 RSB 


1B ee r198d OS :bo;c) EMONYOR. cariguMmeure.mar;1 29° (16) 


input floating value to convert and stack 
address of next eves tate longword in FAOSTK 
scratch (saved on stack 


save R11 so we can use it as scratch 
Stack whole part for fao 

Get back truncated part 

omg Hig ag ll o two 

eee digi ts for tabular *¢isetey 

Stack rection for fao 

Restore R11 


save R11 so we can use it as scratch 
Stack whole part for fao 

Get back truncated part 

snag 7 fraction to one ... 

—_ digi t for mo display 

Stack rector for fao 

Restore R11 
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- Multi-file Summary Buffer Routi ines. 16-SEP AX/VMS Macro V04-00 Page 15 SUM 
FILL_MFSUM_FAOSTK rye FAOSTK for M.F. g7se P-1 71984 83: 8:7 MONTOR.S REIS SUMMBUF F .MAR; 1 . (11) v04 
1AE 1? 3 
Ae 9 ; UPD_STATS = Update the MIN, MAX, and TOT longwords for this element. 
1AE ¢ ; R1 = input floating value to update >. stats with. 
1AE ; R2 = current element number (0-origin) 
1AE 4; R? = MFS pointer 
1AE 78 R8 = scratch (saved on stack) 
1AE . 3 R9 = scratch (saved on stack) 
1AE r 2 
1AE 8 
1AE 9 UPD_STATS: 
1AE 0 
88 1A 1 PUSHR #*M<R8 Save regs 
? C7 O01B2 5 : DIVL3 #3, ares’ STATSBUF(R7), Ro" Get length of one buffer 
58 24 A? 0 alee 5 Z MFSSA_ STATSBUF (R7),R RB° :'Get ptr to first buff (TOT) 
6842 51 40 O16 338 ADDF2 R1,(R8)CR2) ; Update TOT for this element 
58 59 CO OI1BF 537 ADDL2 R9,R8 ; Compute addr of MIN buffer 
6842 51 51 01C2 538 CMPF R1,(R8)CR2I 3 Check minimum 
04 18 O1C6 539 BGEQ 10$ : Branch if not less 
6842 51 50 Bice 279 108 MOVF R1, (R8)CR2] 3; Else insert new minimum 
58 59 CO OICC 2%6 ADDL2 R9,R8 ; Compute addr of MAX buffer 
6842 51 51 O1CF 54 CMPF R1,(R8)CR2) 3; Check maximum 
04 15 0103 544 BLEQ : Branch if not more 
6842 51 50 3102 et? 208 MOVF R1,(R8)CR2] ; Else insert new maximum 
0300 8F BA Q1D9 547 POPR #*M<RB,RI> ; Restore regs 
05 O1DD 548 RSB ; Return 
O1DE 549 


F 1 
S FF - Multi-file Summary Buffer Routines 16-SEP-19 AX/VMS Macro V04-00 Page 
yee 800 FILL MF SUM_FAOSTK wy eTLL FAOSTK for M.F. g-3EF P-1 1984 85: 86:47 MONTOR.SRCJSUMMBUFF .MAR; 1 ° 
1DE 1s 
1DE 3 3; STACK_STATS = Convert and stack each of the four statistics 
105 27 ; (TOT, AVE, MIN, MAX) for the current element. 
ie 60555; R1 = input to CVTSTK (altered by th thie routine) 
1DE 2$ ; Re = current element number (0-ori 
1DE or 8 R5 = address of next available [onbeeed in FAOSTK 
1DE 58 ; R?7 = MFS _pointer 
1DE 59; R8 - R10 = scratch (saved on stack) 
1DE 260 3 
1DE 61 
IDE 6¢ STACK_STATS: 
0700 8F 8B 135 64 PUSHR #*M<RB,R9I,R10> ; Save re 
SA SC A?) O9A.sCOE 65 MOVZBL & MESSB_GATA COLS(R7),R10.: Get # of cols with actual data 
59 20 a7 03 C7 O166 566 3,MFS$L_STATSBUF(R?),R9 ; Get Length of one buffer 
58 24 a7 00 OiEB 367 MOVL Sigta _STATSBUF(R7),R8  ; Get ptr to Ist buff (TOT) 
51 “ DO O1EF 569 MOVL (ng) the). R1 ; Get TOT value for this element 
A 10 pire 279 BSB CvTS 3; Convert and stack it (in tenths) 
SA SA 4E O1F5 276 CVTLF R10,R10 3; Get flt. # of cols with actual data 
064 12 OWB 57 BNEQ 10$ : Br if have some 
1 D4 OFA 574 CLRL RI 3; No data columns -- just stack 0 
> 1 Owe 379 BRB 20$ : Go do it 
O1FE 576 10$: 
51 SA 46 Biff oe 208 DIVF2 R10,R1 ; Compute AVE value for this element 
94 10 0301 84 ; BSB CVTSTK10 : Convert and stack AVE value (tenths) 
59 CO §s63 3! ADDL2 R9,R8 ; Compute addr of MIN buffer 
51 6842 00 0206 Be MOVL  (R&)CR2],R1 : Get MIN value for this element 
FF6F 30 BSon 287 BSBW CVTSTK ; Convert and stack it 
59 CO Q20D 585 ADDL2 = R9,R8 ; Compute addr of MAX buffer 
51 6842 00 0210 586 MOVL (R8)CR2I,R1 3; Get MAX value for this element 
FF65 30 8 13 af BSBW CVTSTK ; Convert and stack it 
0700 8F_ BA $51) 589 POPR #*M<RB,RI,R10> ; Restore regs 
05 0218 590 RSB 3; Return 
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: : ESTAB_ FAOSTR = Establish the MFSUMSTR sounted string, which is the 
substring to be used by t ng belied. rqut tng to build 

an FAO control str "Puan to displ t one Line of data. 

Also yy MFS$L_LWORDS ~ ge “ee “by Ae HOMOG 
routine (for homog classes). the of longwords 
which ait be put on the PAOSTE a FItL OF SUM. PAOSTR for 
each element. 


Upon input, 
R? - Re Br OR »R9,R11 = scratch, destroyed by this subroutine 


= CDB pointer 
R8 = tem orery data area pointer 
R10 = SUMM BUFF pointer 
ESTAB_FAOSTR: 
53 00000001'EF MOVAB MFSUMSTR+1,R3 ; Get addr of MFSUMSTR string 
04 A8 TSTL TM2$L_ COLS (RB) : Any pay to display ? 


o-c00 


WwuIm 


D 
57 68 01 SUBL3 #1, TM2$L_START_COL(R8), ai? "Get starting col: no. (O-origin) 
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poses and less than that. 
will regain 1 within loop 
51 57 08 AB C5 MULL ines, COL_SIZE(R8),R7, RI’; "Laeute addr of data 
7 Fa 3 - GF ADOL R1 »RO™ 3 ee. for starting column 
5B D4 108 CLR Rif 3 Init counter of columns used 
57 D6 INCL R7 3; Get column number 
59 08 AB CO ADDL2 TM2$L_COL_SIZE(R8),R9 ; Point to data for this column 
51 QO0000000'FF47 D0 MOVL aCSBVEC_PTRCR7],R ¢ CSB for this column 
ED 20 Al 00 €0 BBS #CSB$V_IGNORE tsetse FLAGS (RID 108 : Ignore column if instructed 
51 59 O8 AB C1 ADDL3 Test TOL_SIZE(R8).R9,R1 ; Point to first byte after this column 
FC Als ODS TSTL R1J : Any got lect tons? 
as BEQL 30s" 3 
50  O0000000'EF 00 MOVL MFSPTR,RO : Got MES. pointer 
3C AO 96 INCB Se; BATA_COLS(RO) : Count this column with data in it 
34 a0 02 C0 ADDL2 2,MFSS$L_LQORDS (RO) ; Count Longwords to be added to FAOSTK 
58 bd TSTL 4g ; First column ? 
OE 1 BEQL 208 Yes -- br to move a special string 
63 OOO0014F*EF  00000147°EF 28 MOVC3 DATA_STR,DATA_STR#8,(R3) ; Move p-t substring into ctrl str 
eo. 3 4 208 BRB 50$ 3 ee. and go loop 
63 00000165°EF  0000015D'EF “8 7 MOVC3) DATA_STP1,DATA_STR1+8,(R3) ; Move speciai data substring 
1E 1 e3 30s BRB 50$ 3 ee. and go loop 
58 3 TSTL R11 : vires Column ? 
a. a ee BEQL 40$ -- br to move a special string 
63 00000177°EF j QOOO016F'FF 28 § mOVCS BLANK. STR,BLANK_STR+8, (Rd): “tent blank substring into ctrl str 
oc (11 5S 408 BRB $ 3 «+. and go loop 
63 00000184°EF  OOO00017C"EF 28 mf 50s MOVC3 BLANK_STR1,BLANK_STR1+8,(R3) ; Move special blank substring 
92 58 04 A8 F2 a0 6 AOBLSS TM2$i_COLS(R8),R11,10$ ; ... and go back to get next column 


or 


S fF - Multi-file Summar ffer R os, SEP- S$ Macro V04-00 Pa SUM 
VOC B8o FILL CMPSUMCEARSTR FILL FAORTE for MAF. Sokep-1obe Ho sbo;c5 EMBNTOR. caessuMmbure mar: “29° (48, v4 
A 4 
ns 60$: 
1710 6C OO €1 4 BBC #0,a16(AP),70$ ; Skip if stats not requested 
50. (0 re Dd AA 6 MOVL ; Get MFS pointer | 
4A 8 ¢ Bl 654 ADDL a seregre LWORDS (RO) Count longwords to be added to FAOSTK 
63 00000191'EF  00000189'EF Bs 639 cen MOVCS STATS_STR,STATS_STR+8, (RS): Move stats substring into ctrl str 
50 spoonggor’ i H C1 839 "  MOVAB) =o MF SUMSTR#1,RO : Get addr of MFSUMSTR string 
C3 O02C8 658 SUBL ° ; Compute actual Length of string 
0000000" EF 90 O2cc 659 OVB RO.MFSUMSTR t se. and store in cstring 
05 0203 660 RSB ; Return 
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Move SUM buffers to Summa 5-SEP-19 MONTOR. SRC JSUMMBUFF .MAR; 1 (16) 
-SBTTL CAPTURE_SUMS = Move SUM buffers to Summary Buffer 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine updates the multi-file summary buffer with 

fhe contribution of the current class from the current 

nput file. Each sum in the SUM buffer is converted to 
floating-point, and either added or moved to the m.f. 

summary buffer. Also, the number of seconds for the current 
class and file, as well as the number of collections 

are also converted and moved (or added). for the SYSTEM class, 
a SUM buff for SYS/ALL is constructed ‘‘on the fly’’. 


D4 


CALLING SEQUENCE: 
CALLS #2,CAPTURE_SUMS 
INPUTS: 


4(AP) = address of a pointer to the CDB (Class Descriptor Block) 
for the class to process. 


8(AP) - address of byte containing column number (l-origin). 
IMPLICIT INPUTS: 
MRBPTR = pointer to MRB (Monitor Request Block) 
MCAPTR = pointer to MCA (Monitor Communication Area) 
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694 

D4 695 ; OUTPUTS: 

D4 696 

D4 = 697 None 

D4 «§=6698 

oe +44 IMPLICIT OUTPUTS: 

D4 = 701 The multi-file summary buffer is updated to reflect the inclusion 
spe 708 of SUM data for the current class and input file. 
Soe 4 : ROUTINE VALUE: 

+ 706 RO = SS$_NORMAL, or failing MONITOR status 

D4 708 SIDE EFFECTS: 

D4 = 709 

D4 = 710 None 

D4 »=— 711 

D4 ar REGISTER USAGE: 

D460 71 

D4 = 714 RO = scratch 

D4 3=— 715 Ri = scratch, also floating seconds 

D4 £18 R2 = floating collection count 

D460 71 R5 = address of current olenent in qusaery buffer 

D4 «86718 R4 = scratch, no. of elements in this class 
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yoer000 CAPTURE_SUMS = Move’ SUM buffers to Summa g7SE Pe 1984 88: 8:4) MONTOR.SRCJSUMMBUF F MAR; 1 . (58) 
D4 4 3 RS = scratch, also address of SUM buffer for this input file 
D4 3 RG = address of CDB for this class 
D6 «6721; = address of MRB 
4 67 § ; 
41 4 i je 
O7FC v1 4 5 .ENTRY CAPSURE_SUMS, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10> 
56 04 B8C 00 D6 «67 ; MOVL a4 (AP) ,R 3; Get ptr to CDB 
57  00000000'EF dO pA 4 3 MOVL MRBPTR,R ; Get ptr to MRB 
ae 
4 PGR § : Compute the number of oan seconds and the number of 
Ei 733 ; floating collections covered by the current input file, 
QO2E1 734 ; and save for use below. 
fe 
51 OC A? OD E1 7 $ MOVL MRBSQ_ENDING+4(R7) ,R1 Get high order bits of time 
50 O8 AT 67 C3 O2E5 738 SUBL3 MRB$Q~BEGINNING(R7) mRAsO _ENDING(R7),RO ; Compute elapsed time since 
51 04 A7 D9 OZEA 739 SBWC m009 pPEGINNING#4(R7) .R1 7 Get high order difference 
51 50 50 00002710 8F B 0 EE 740 EDIV 000,R0,R0, ; Turn time into milliseconds 
4E O2F 741 CVTLF 3; Floating milliseconds 
51 50 OQ000457A BF 4 8 fA ot) DIVFS #1000. RO,R1 3; Save floating seconds for later use 
50  OQOO000000°EF oD 0308 744 MOVL MCAPT ; Get ptr to MCA 
52. OC AO 01 C3 0309 745 SUBL3 #1 ARCASL COLLCNT(RO),R2 ; No. of collections, don't count Ist 
52 52 4E€ O30E 746 CVTILF R2.R2 ; Convert to floating for Eke use 


S$ FF = Multi-file Summary Buffer Souktaes’ SEP-1984 02:06:47 VAX/VMS Macro v04-00 ea 1 
vivant CAPTURE_SUMS = Move’ SUM buffers to Summa :* ee 13be 3:08:44 MONTOR.S REIS SUMMBUF F .MAR; 1 ™ dy 
11 48 ; 
11 ‘3 ; Compute the starting address of 
11 ; the portion of the output m.f. summary buffer for this column 
11 1; (a column represents a column +e ata on the report page -- 
11 § 3 it can be the data for a single f le, or, if BY_NODE was 
ie z ; requested, for a single node 
11. 755° 
3 9 A6 D0 1) ae § MOVL COBSA_SUMBUF (R6) ,R3 : Get beginning of m.f. summary buffer 
4 C 9A 13 7 MOVZBL @8(APT,R4 i Get column number 
4 07 1 7 5 DECL R4 ; Make it O-origin 
C i } ee BEQL 20$ : Skip calcs if column 1 
55 (Y0000008'SF oD 1D 760 MOVL #<4*<MAXELTS ait its R5 ; Com AL a no. of bytes for cats column 
19 4B A6 5 €0 4 761 BBS #CDBSV_HOMOG, CDBSL_FLAGS( tt Br a homog clas 
OC 4B A6 8 €1 9 166 BBC #COBSV “SyscLé. coBSsC_ F AGS ( R65 ; Br if not SYSTEM class 
55 gp0e" F 00 4 76 MOVL a< <ECOURT SYS ALL SaSs R5 ; Re ten class item count 
4 (6 764 MULL2 #4,R 
08 11 8 165 ra BRB 10$ 
55 18 * 02. C1 i A 59 : ADDL #2,CDBSL_ECOUNT(R6),R5 ; Re-compute for hetero 
5 04 C4 $25 £68 108 MULL #4,R5 5 eee 
55 54 C4 O32 19 : MULL2 R4,R5 3; No. of bytes to skip pest 
53 6345 9E 23 44 208 MOVAB (R3)CR5J,R3 3; Compute start address of column 
12 48 AG) «6005~—sé#E;T 39 118 : BBC #CDBSV_HOMOG, CDBSL_FLAGS(R6),30$ ; Br if a heterogeneous class 
O3%4E 775; 
4E £76 3 As homogeneous classes, call special routine 
4E 777 ; to fill summary buffer. 
ak 
e¢ DD 034 780 PUSHL R2 3: Stack floating ee Hate 
5 DD 5 781 PUSHL R11 3 Stack de aes second 
53 OD 5 7 ¢ PUSHL R3 3; Stack start address of column 
56 OD — FF PUSHL R6 :; Stack CDB address 
OOOOOSFD'EF 04 FB 0356 784 CALLS #4,FILL_HOM_SUMMBUFF ; Fill summary buffer for homog class 
oo9c =O s«51 28 g i BRW CS_RET ; Go return with status 
$9 787 ; 
? if 3 : Fill summary buffer for heterogeneous class 
60 790 ° 
6 44! 30$: 
62 48 A6 =608-~—sé€E 6 ¢ BBC ecoesy SYSCLS,CDBS$L_FLAGS(R6) ,70$ Br if not SYSTEM class 
58 0000000 ' 8F po 6 79 MOVL #<CD beer. S$ $1 GER QODES . CLSNO>, R8 ; Compute offset to MODES CDB 
58 | of 794 MOVAB CDBHEAD R8 i e+ get its coe address 
2E AaB OD 4 795 OVL  CDBSA ASBUTTERS (RD R95... and MBP 
22 4 a9 DOD 78 #679 MOVL MBPSA (R9) .R 2-20 oint to On buff for MODE 
5 2 Ag D 7c «679 MOVL C BSA- UFFERSERS) RS; Get addr of SYSTEM class buffer ers 
55 14a5 08 C 09 ADDL3 #8,MBPSA_SUM(RS) .R5 > Get SYSTEM SUM buff ptr (skips 2 itemS) 
, : Now Loop once for each element, moving or adding data from 
3 the MODES and SYSTEM SUM buffer to the m.f. summary buffer. 
16 43 A7 OC EO im BBS #MRBSV_BY_NODE ,MRBSW_FLAGS(R7),50$ ; Go do a sum if by node 
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#7,R4 


(R9)+ 
Ro, 458 


#<ECOUNT_SYS_ALL=7>,R4 


(R5)+, (R3)+ 
4,47§ 


#7,R4 


(R9)+,R0 
RO, (R3)+ 
R4,55$ 


#<ECOUNT_SYS_ALL-7>,R4 


(R5)+,RO 
RO, (R$)+ 
R4,57$ 


95$ 


CDBSA_BUF F 


BUFFER 
MBPSA~SUM(R5) , 


Now loop once for each element, movin 
the SUM buffer to the m.f. summary bu 


COBSL_ECOUNT(R6) 
#MRBSU_BY_NODE,M 


(RS) +, (R3)+ 
R4,80$ 


R1,(R3)+ 
R2, (R35) 


f 


(R3)+ 
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Get no. of elements for MODES CLASS 


Fill summery buffer for this element with 
Loop to pick up all MODES items 


; no. of items to pick up from SYSTEM class 


Fill summery buffer for this element with 
Loop to pick up all SYSTEM items 


; Also move in floating seconds 
; «ee and collection count 
; «ee and go return 


; BY_NODE logic for SYSTEM class 
; Get no. of elements for this class 


; Augment summary buff for this element 

; ee. with this file's contribution from MOD 
; Loop to do entire column 

; no. of items to pick up from SYSTEM class 
; Augment summary buff for this element 

; eee with this file's contribution from SYS 
; Loop to pick up all SYSTEM items 

; skip to end 

> FILL summary buff for Heterogeneous classes other than SYSTEM 


3; Get addr of SUM buffer 
3 +. for this input file 


or adding data from 
er. 


no. of elements for this class 


RG ; Get 
RBSW_FLAGS(R7) ,90$ 3; Go do a sum if by node 


; Fill summary buffer for this element 
; Loop to do entire column 


Also move in floating seconds 
eee and co.lection count 
e+e. and go return 


Augment summery buff for this element 
eee With this file's contribution 
Loop to do entire column 


; Also add in floating seconds 


S$ 
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#4 
63 52 40 4 ADDF2 R2,(R3) 
F 4 CS_NORMAL: 
50  00000000°8F D0 O3F MOVL § #SS$_NORMAL,RO 
FC § CS_RET: 
04 O3FC RET 
FD 68 


3 «ee and collection count 


3; Indicate success 
3 «ee and return to caller 


CDE 
CDE 
CDE 
CDE 
CDE 
CDE 
CDE 
CDE 
CDE 
CDE 
CDE 
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ze 
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FUNCTIONAL DESCRIPTION: 


Augment multi-file oummery buffer for the current (homogeneous) 
class from the current SUM buffer. Do it for all elements and items. 


CALLING SEQUENCE: 
CALLS #4,FILL_HOM_SUMMBUFF 
INPUTS: 


4(AP) = pointer to the CDB (Class Descriptor Block) 
for the class to process. 


8(AP) = address of the first byte of the portion of 
the summary buffer for the requested column 
for the first item. 


12(AP) = floating number of seconds for this input file. 


34+ 


16(AP) = floating number of collections for this input file. 
IMPLICIT INPUTS: 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
CDX$L_DCOUNT -=- we ne of elements in Super Element ID Table. 


dated to inc.ude any new elements from 
current input file. 


5 
0 
! 
; 
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+O OOO 0.09 09 00 0D Cd G9 09 0D Cd Oo CD 9.09 CD CD CD G9 G9 G9 00.09 Cd Co CD CD CO.CDCDCDCD z 


o 
ooo 
ms 


ROUTINE VALUE: 

RO = SS$_NORMAL, or failing MONITOR status 
SIDE EFFECTS: 

None 
REGISTER USAGE: 


RO-R3 = scratch 

R4 = super element ID table index 

R5 = super element ID table size (in longwords) 

RE = address of CDB for this class 

R? = address of CDX for this class 

Re = address of current element in element ID table 
R9 = address of TM3 temp area 

R10 = length of super element ID 


Son Bona once, a Donce, Do Dont DoD once Doce, once Pn, Dh Pc Do Dt, Dd, Dot a, Dona fo Dona fo Ponca, Dona once, ona, fonca na Donca. toa fon-a, oa fonca. dom. Dona, once. mca, on, ona, Bn, mca, enna Dona, ona a) 
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v04-000 FILL_HOM_SUMMBUFF = Move SUM buffers to “SEP-1984 02:02:41 CMONTOR.SRCJSUMMBUFF .MAR;1 (18) 
4 4 73 R11 = address of current element in super element ID table 
Bei 
OFFC 43 4 1 .ENTRY FILL _HOM_SUMMBUFF, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
56 4 AC 00 Pe 2-5 § MOVL 4 (AP) ,R6 ; Get ptr to CDB 
57 2A6 DO 0403 934 MOVL CORSA. CPE IRG? -RE ; Load CDX addr 
407 935 ALLOC IMS5$K_SIZE,RO,R9 ; Allocate local coup srereny 
5A O09 A? QA Beis 339 MOVZBL CDX$B_ELIDLEN(R7),R10 ; Get Length of an element ID 


ES . _ - ———— 


‘. ulti-file suspery Buffer noutinen® a 4 =1384 9¢:8 or AX/VMS Macro V04-00 Page (98) 


- i- 
FILL_HOM_SUMMBUFF = Move SUM buffers to MONTOR. SRE tis SUMMBUFF .MAR; 1 


4) 939 ; | 
41 940 ; oe a through e: elements in the shenent ID table. There is one element | 
4] 8¢3 ; in the table for each element in the SUM buffer (there are CDBS$L =p pOUMt 
41 rh: ; elements in the table). For each slemset. try to find a match in the 
41 Be ; super element ID table. hn B 18 one element in this table for each 
41 44 ; element in the m.f. gh fer. The super ID table contains a 
4) 945 : number of elements (EDBSL BUNS which is the accumulation of 
4) ae9 ; distinct elements from all input files for this multi- | 
4) 947 ; summary request. On the first time through this routine, the 
be 948 ; table will be empty. 
a a 
58 OC A7 00 4] 951 MOVL SO ESA_FL ID TAGLE IA?) RS ; Load input Element ID Table addr 
69 D4 Role 326 108 CLRL TM3$L_INPIDX(R9) ; Clear input elidtable index 
5B 18 AZ? DO 041 954 ; MOVL SOUSA SELIDTARLECRT), R11 ; Load Super Element ID Table addr 
1449 94 046 955 CLRB TM3$B_FOUND(R9) ; Clear “‘elenent found’’ indicator 
54 D4 Be 956 CLRL RG ; Clear Super Element ID Table index 
55 1C A7 0 427 = 957 MOVL COXSL_DCOUNT(R7) .RS ; Load no. of ge in Super ID table 
A 13 0428 958 BEQL 40$ ; Br if table is emp pty 
57 A 00 hh 959 MOVL R10,R7 ; Borrow R7 to hold elt id Length 
OF 48 AB «006~—séE? 0430 360 BBC #cDBSV pDISKAC, as : Branch if no allocation class in name 
03 48 A6 07 «CEI ti oe BBC beng or hee tats” 15$ : Branch if no volume name in disk name 
57 OC C2 Q43A 964 SUBL2 He R? : : Shorten length for compare so 
bes +44 158 3 eee Volume name will not be compared 
gfe se i gp Wx researc 
: Br 
57 08 C2 0441 969 SUBL2 #8,R7 3 Shorten length for compare so 
Reee any 208 3 «ee node name will not be compared 
68 68 57 29 0444 4a ‘ CMPC3 R7,(RB),(R11) 3; Match current element in table ? 
06 12 0448 97 BNEQU ; Br if not 
14A9 Q1 90 Q464A 976 MOVB TM3$B_FOUND(R9) ; Yes -- indicate so 
ae E Beek 3f? 30s BRB 408 3 ee. and terminate loop 
5B SA CO oe ee 977 j ADDL2 = Rk10,R11 3 Point to next Super Element ID 
ED 54 55 F2 045 978 AOBLSS R5,R4,208 ; Loop through Super Element ID Table 
gar a 
0457 981: At this point the entire Super Element ID Table has bean scanned for a 
pee! 2 § : match to the current element in the Element ID Table 
ae | 
32 A6 0 0437 986 |  MOVL  CDBSA_CDX(R6),R7 : Re-load CDX addr 
04.09 54 DO 0458 987 MOVL  R4, TM3$L_SUPIDX(R9) ; Save index for Super Table element 
1114A9  €8 bee, $88 BLBS TM3$B "FOUND (R9) 708 ; Branch if element found in table 
rt $30 : Element in input Element ID Table was NOT found in Super Element ID Table. | 
es | 
4 19 46 994 BSBB CHECK_TAB_SPACE ; Check if table space exhausted 
1p 50 ~=6€C€ 46 995 BLBC RO,FHSB_RET : If so, go exit with error 
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v04-00 Pa 
FILL _HOM_SUMMBUFF = Move SUM buffers to -SEP- = 3 


cro 
MONTOR. SRC JSUMMBUFF .MAR; 1 


46 998 ; | 
e nt ; Add a new element to the Super Element ID Table. | 
468 1001 © 
10 AZ) D6 0468 1 8 INCL COX$L_DCOUNT(R7) ; Count the new element 
5A C4& 0468 10 mUL LG R10,R4 5 Compute offset to new table entry | 
18 B744 68 SA 28 post 1004 MOVC R10, (RB) ,ACDX$A_SELIDTABLE(R7)(R4) 
0474 1005 ; Move new element ID into the table 
beee 1306 3; NOTE == RO-R5 destroyed 
474 100 
0474 1008 ; 
Bere 1009 ; Move pg for each item (for this element) 
474 1010 ; from SUM buffer to M.F. Summary Buffer. 
0474 1011; 
0474 1916 
0474 1013 70$: 
0474 1014 
35 10 0474 1015 BSBB SUM_TO_SUMMBUF F : Augnent summary buff from SUM buff 
pe e8 1318 ; NOTE -- destroys regs RO-R5, R11 
58 SA CO b328 1918 ADDL2 = R10,R8 : Point to next input element 
AO 69 18 A6 F2 0479 1020 AOBLSS CDBSL_ECOUNT(R6), - ; Loop once for each input element 
Bere 19 1 TM3$L_INPIDX(R9) ,10$ 
50 00G00000'°8F D0 ot 4 1} § MOVL #SS$_NORMAL ,RO 3; Indicate success 
0485 1025 FHSB_RET: 
04 0485 1026 RET 3 ee. and return to caller 
0486 1027 
0486 1028 
Be 88 1} 4 CHECK_TAB_SPACE: 
50 Q0000000'8F DO 0486 + 1 MOVL #SS$_NORMAL ,RO ; Assume normal status 
54  00000000'8F D1 048D 1 ‘ CMPL  #MAXELTS_MFS,R4 ; Have we run out of table space? 
14 0494 10 BGTR 10$ 3; Or not 
00000000'8F DD 0496 Ioee PUSHL #MNR$_TABLEFULL ; Stack MONITOR failing status code 
OOOOOO0O'EF 01 FB O049C 1035 CALLS F ; Log the error 
50 00000000°8F DO O4A3 1036 MOVL #MNR$_TABLEFULL RO ; Get status to caller 
O4AA 1037 10$: 
05 O4AA 1038 RSB 3; Return to caller 
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SUMMBUF F - Multi-file Summary Buffer Routines 1 mitts yi 95:6 747 fa os Macro V04-00 Page 3 
v04-000 SUM_TO_SUMMBUFF = Move SUM buffer to Sum 5-SEP-1984 02:02:41 (CMONTOR.SRCJSUMMBUFF .MAR; 1 (21) 
rey } 9 ~-SBTTL SUM_TO_SUMMBUFF = Move SUM buffer to Summary Buffer 
4AB 1 43 pot 
4AB 1045 ; 
ry ! rf: 3; FUNCTIONAL DESCRIPTION: 
4AB 1 rs : This subroutine augments the multi-file summary buffer for 
4AB 1047 ; the current (homogeneous) class with information from the 
4AB 1 rt 3 SUM buffer for a single element. 
QO4AB 1049 ; 
04AB 1050 ; CALLING SEQUENCE: 
4AB 1 2] : 
4AB 1 : ; BSBW SUM_TO_SUMMBUFF 
0448 192 : 
Rene : 3¢ : INPUTS: 
04AB 1986 : RO-R5 and R11 = scratch 
Q04AB 1057 ; R6 = address of COB for current class 
04AB 1058 ; R7? = address of COX for current class 
gees 193 3 R9 = address of TM3 (local temporary storage block) 
O4AB 1061 > IMPLICIT INPUTS: 
04AB 1083 ; TM3$L_INPIDX = index of desired element in SUM buffer 
04AB 1064 ; TM3$L_SUPIDX = index of desired element in Summary Buffer 
Rene + 3 See INPUTs for routine which calls this one (FILL_HOM_SUMMBUFF). 
04AB 1067 : OUTPUTS: 
Ocas 1069; 0 | 
: one 
04AB 1070 ; 
Reae 100) 3 IMPLICIT OUTPUTS: 
4AB 1998 : The M.F. Summary Buffer is augmented for the current element of 
4AB 4 t 3 the current (homogeneous class). 
QO4AB 1975 ; 
04AB 1076 ; ROUTINE VALUE: 
Se lon 
tap 1009 ; 
4AB 1080 ; SIDE EFFECTS: 
ot en 
4AB 1083 ; 
rn 1084 : REGISTER USAGE: 
4AB 1086 ; RO = scratch 
4AB 138 3 R1 = address of destination longword for seconds 
4AB 1088 ; R2 = index into input SUM buffer for this element 
4AB 198% : R3 = index into output summary buffer for this element 
4AB 1 3 R4 = address of destination longword 
4AB 1091 ; RS = address of source longword 
4AB 1 3 3 R6 = address of CDB for this class 
4AB 1095 ; R? = address of CDX for this class 
4AB 1094 ; R8 = unused 
4AB 1095 ; R9 = address of TM3 temp area 
4AB 1096 ; R10 = unused 
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SUMMBUF F - Multi-file Summar SEP-1984 AX/VMS Macro V04-00 Page 30 
v04-000 SUM_TO_SUMMBUFF = ove SUM buffer to Sum g- aes? 85: 98:4 MONTOR. SRE CISUM UMMBUF F .MAR; 1 . (21) 
4AB 1097 ; R11 = item index 
4AB 1 38 3 
4AB 1099 ;-- 
4AB 1100 
rh | 1} 1 SUM_TO_SUMMBUF F : 
OC AQ O8 AC DO QO4AB 11 5 MOVL 8(AP) , TM3SA_SBCOL (RI) ; Get addr of portion of summary 
480 1104 3 .-- buffer for this column 
52. 69 DO Q4B80 1105 MOVL ust INPIDX(R9) ,R ; Get SUM buffer index 
53 04 A9 DO 0483 11 § MOVL “SUPIDX(R9) ,R : Get summary buffer index 
08 AQ 06 A7 QA QO4B7 11 MOVZBL coy $B-IDISCT(R7), = 3; Get # of items to do 
4BC 11 8 M3$SL_ITEMS(R9) ; 
10 A9 «608 AA «=COOB AD «OC7_—s«O4BC C11 DIVL3 tH SL_ITEMS(R9) Compute len of summary buff for 1 item 
04¢3 1110 DBSL ~SUMBUF (R65, TM3SL_ sBLEN( 9) 
5B D4 Ree WM 108 CLRL R11 ; Clear item index 
54 OC 8943 ODE aces 1118 MOVAL a@TM3$A_SBCOL(R9)CR3],R4 Conguee addr of destination Longword 
20 2— 8648 DO O4CA 1114 MOVL acbbsa-eurrensingithit 11,0 Get addr of MBP for this item 
14 B042 DE O4CF 1115 MOVAL @MBPSA_SUM(RO)CR2),R5 ; compute — of source longword 
ote "t DO 0404 1118 MOVL MRBPTR,RO Get 
? C EO 0408 111 BBS #MRBSV. BY_NODE ,MRBSW_ FLAGS (ROD, meses "Go do a sum if by node 
65 4E Beee 1118 CVTLF = (RS) , CRO) ; Move SUM element to summary buffer 
oo ett 1133 208 BRB 30$ 3; Go check seconds and colls 
50 65 4€ bees 1191 CVTLF «(R5),RO ; Convert SUM element to floating 
64 50 40 Bree yy § 30s ADDF2 RO, (R4) 3 «ee and add into summary buffer 
52 D5 pcEe 1124 TSTL Re : Is this the first SUM buffer element? 
9 12 Q4ED 1125 BNEQ 50$ 3; No -- skip secs and colls processing 
51 OC ADP O0000000'8F Ci O4EF 1126 ADDL3 #<4*MAXELTS_MFS>, - : Yes -- Get ptr to destination for secs 
O4F8 1127 TM3$A_SBCOLTR9) ,R1 
50 Q0O000000'EF 00 O4F8 1128 MOVL MRBPTR,RO of ng MRB p 
0B 43 A0 OC £0 O4FF 1129 BBS #MRBSV BY_NODE ,MRBSW_ Fuags (RO) 408: Go “te 8 oun 44 to nel 
61 OC AC 4 8208 1130 MOVL 12(AP)> (RT) : Get seconds into summary buffer 
04 Al 10 AC OD 508 1131 MOVL ISCAP) GcRY) : Get collections into summary buffer 
09 «11 beor 11 § BRB 50$ ; Go process next item 
SOF 1133 40$: 
61 OC AC 40 OSOF 1134 ADDF 12¢CAP), (R1) 3; Add in seconds 
04 A1 10 AC 40 0318 1 5 508 ADDF 16(AP) ,4(R1) 3 eee and collections 
0c AQ «610 AD Ss«CO 3] 11 $ ADDL2 TM3$L_SBLEN(R9), - 3 Point this column's summary 
$318 1 } TM3$A_SBCOL(R9) : ... buffer for next item 
A3 5B O08 AD F2 0822 1179 AOBLSS TM3$L_ITEMS(R9),R11,10$ ; Loop to process next requested item 
i 
05 b33 1142 RSB ; Return to caller 
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FUNCTIONAL DESCRIPTION: 
This routine is called to allocate and clear to zeroes 
the entire Multi-file Summary Buffer for each requested class. 
In addition, if the class is homogeneous, allocate the 
Super Element ID Table. 
CALLING SEQUENCE: 
CALLS #1,ALLOC_SUMBUFS 
INPUTS: 


4(AP) = address of MRBSO_CLASSBITS, the octaword 
bit string representing classes needing service. 


; IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 
; IMPLICIT OUTPUTS: 
Multi-file Summary Buffer for each requested class 
(represented by CDBSL_SUMBUF and CDBSA_SUMBUF) allocated 
and cleared to zeroes. If homogeneous, super element ID 
table (represented by CDXSL_SE IDTABLE and CDXSA_SELIDTABLE) 
allocated. 
ROUTINE VALUE: 
RO = SS$_NORMAL, or failing status code from LIBSGET_VM. 
SIDE EFFECTS: 


None 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sete 
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S FF - Multi-file Summary Buffer Routines 16-SEP-1984 02:06:47 VAX/VMS Macro v04-00 P 
san 800 ALLOC_SUMBUFS - Allocate Summary Buffers 5-SEP-1984 95:8 741 YRONTOR. SRCISUMMBUFF MAR: 1 meg | 
OFFC 2 1138 eENTRY ALLOC_SUMBUFS, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> | 
11 
57 D4 Vi3e 08: CLRL R7 ; Init starting bit position 
59 20 00 3 7 1196 "— MOVL «= #32,R9 : Init bit field size 
A 119 3; NOTE -- must handle in 32-bit chunks 
58 57 00 2 . 1138 30S: MOVL R7,R8 3 Init start position of next chunk 
5A 046 BC 59 58 EA 0520 1200° ~=FFS RB,R9,@4(AP),R10 : Search for next class number 
5 1201 : R10 contains class no. if found 
7% 6 : } 08 BEQL 40$ ; Branch if none found this chunk 
1F 8610 «Q5 1204 BSBB AS_BUFF ; Alloc buffers for this class 
18 50 =—€9 : : B2 BLBC RO;AS_ERR ; Go return if error 
59 58 cO OS3A 1 C9 ADOL R8B,R9 ; Compute next starcing 
58 SA 01 4Ci QO530 1208 ADOL #1,R10,R8 i eee position and field size 
a oe © B20) 1209 SUBL2 R8,R9 3: ee. for this chunk 
E711 B2e8 : Bf 408: 30§ ; Go search rest of chunk 
FFD9 57 20 0000°8F 3D gece ! \ i ACBW #MAX_CLASS_NO,#32,R7,20$ ; Loop to process next chunk 
50  00000009'8F D0 peek ! 13 98 enn MOVL #SS$_NORMAL ,RO ; Set normal status 
04 0555 1 18 om RET ; Return with status in RO 
Bt 13 
0556 1219 AS_BUFF: ; Allocate buffers for this class 
0556 1 $0 3; NOTE -- R10 contains class number 
0556 1221 ; Regs RQ thru R6 are scratch 
beee : § ; Regs R7 thru R10 must not be changed 
56 5A 00000053 8F C5 beee 1224 MULL3 #CDBSK_SIZE,R10,R6 3; Compute offset to desired COB 
56  O0000000'EF46 9E Ba25 } 2 MOVAB CDBHEABDCR6),R6 : Index to CDB address 
OC A6 05 0566 1227 TSTL CDBSA_SUMBUF (R6) ; Do we have summary buffer yet? 
03 13 0569 1228 BEQLU 10% : If not, go get it 
00A5 31 0568 1229 BRW 60$ : Otherwise, exit 
see 1531 ; 
56E—E 1 ¢ : Compute size of summary buffer and issue call to LIBSGET_VM 
56E 1 3; to get the space. 
56E 1234; 
eee i 3 10$ | 
09 4B A6 08 —1 266 1 $ ; BBC #COBSV_SYSCLS,CDBSL_FLAGS(R6),15$ ; Br_if not SYSTEM class | 
50 00000002'8F DO 05 1 | MOVL #<ECOURT_SYS_ALL#2>;RO ; Get special ECOUNT 
1A—si11 37h ! 13 158 BRB 20$ 3 eee and continue 
50 18 A6 Oe C1 aft 1241 ; ADDL3 #2,CDBSL_ECOUNT(R6),RO ; Compute size of summ buff for 1 col. | 
10 48 a6. 05)—CoE1-—«s«0587 1 4¢ BBC #COBSV_HOMOG, CDBSL_FLAGS(R6),20$ ; Br if a hetero class 
1 32 Ab DO 0586 124 MOVL CDBSA_CDX(R6S,R1 : Get CDX address 
1 6 Al 9A O5BA 1244 HOVZBL CDOX$B~IDISCT(R1),R1 : Get number of items 
50 51 00000002°8F C5 05 4 ' rf 208 MULL #<MAXELTS_MFS+2>,R1,R0 ; Compute size for homog class | 
50 04 (C4 250 1 “3 ; MULL2 #4,R0 ; Translate lwords to bytes | 
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S FF - Multi-file Summar -SEP-1984 02:06:47 VAX/VMS Macro V04-00 Pa | 
rivet ALLOC_SUMBUFS = Allocate Summary Buffers g- SE = 19 4 85:8 741 MONTOR. SRC JSUMMBUF F .MAR; 1 “a (33) | 
51 oppoooge'«s go 99 1 rt: MOVL MFSPTR,R1 ; Get MFS ptr 
1 3A Al 9A O5A0 124 mOVZBL mr $88 _ COL MNS(R1),R1 ; Get number of columns | 
08 a6 «651)=550—s«C5 3A4 p MULLS RO,R1;CDBSL_SUMBUF(R6) |; Compute size of entire summary buffer | 
Oc a6) «ODF «0589 1 : PUSHAL CDBSA_SUMBUF (R6) ; Push addr of longword to hold 
AC 1 i «e+ Summary buffer pointer 
08 AG OOF AC 1254 PUSHAL CDBS$L_SUMBUF (R6) ; Push addr of # of bytes needed 
00000000 ' GF 9¢ FB ent 1255 CALLS @# GC IBSGET_VA ; Allocate buffers 
61 E +3 1 2$ BLBC RO,70 ; Leave if error | 
aut 
494 1 35 : Now get gpace for the Super Element ID Table for homog class 
94 ! $9 . and initialize COX$L_DCOUNT, which is used to hold the size of che table. 
589 1262 © 
2448 A6 «2(05~——COE; 28? 1 e§ BBC #CDBSV_HOMOG, CDBSL_FLAGS(R6),30$ ; Br if a hetero class 
50 32 A6 DO OSBE 1265 MOVL CDBSA_COX(R6) ,RO ; Get CDX address 
D4 O5C 1 98 CLRL CDX$L-DCOUNT (RO) ; Clear no. of elts in the S$ ID Tab 
51 09 AO 9A O5C5 126 NOVZBL COX$B_ELIDLEN(RO) ,R1 ; Get length of an element ID 
14 AO 51 QO000000'8F C5 O05C9 1268 MULLS #MAXECTS_MFS, 
05D $9 CDX$L_SECIDTABLE(RO) =; Compute Length of Sup Elt ID Table 
18 AO DF O5D2 1271 PUSHAL CDXSA_SELIDTABLE(RO) ; Push addr of lword to hold table ptr 
14 AO OF 0505 127 PUSHAL CDX$L_SELIDTABLE(RO) ; Push addr of # of bytes needed 
00000000 ' GF Os FB 0508 127 CALLS @# GC IBSGE a ; Allocate table 
38 E9 OSDF 1274 BLBC RO,70$ ; Leave if error 
OSE2 1275 
OSE2 1276; 
Bee } A : Clear the entire summary buffer for this class to zeroes. 
O5E2 1279 ¢ 
OSE2 1280 30S: 
5B OC A6 DO OSE2 1281 MOVL COBSA_SUMBUF (R6) ,R11 ; Load address of summary buffer 
56 08 A6- 00 144 ' B 408 MOVL COBSL_SUMBUF (R6) ,R6 3; Load size of buffer 
56 00007000 8F D1 OSEA 1284 : CMPL #32000 ,.R6 ; Is a large MOVCS required? 
19 18 OSF1 1285 BGEQ 50 ; No -- go do a_smailer one 
6B 7000 8F OO FE AF 00 2C OSF3 1 § MOVCS #0,.,#0,#32000, (R11) 3; Yes -- clear 32000 bytes 
56 00007000 8F ce are 1 SUBL g 3060.86 3; Calc bytes left to clear 
58 00007000 8F C¢ 603 1 ADOL #32000,R11 3 ee. and starting byte addr 
DE 11 ope ! 8 50s BRB 40$ : Go check size of next move 
68 56 00 FEAF 00 2 fi ! 3) aa MOVCS #0,.,#0,R6,(R11) ; Zero out SUMBUF for this class 
50 00000000'8F 0 61 1 38 " — MOVL «= #SS$_NORMAL ,RO ; Success status 
8 1A 1294 70$: ; 
05 O61A 1295 RSB ; Return with status in RO | 
| 
| 
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FUNCTIONAL DESCRIPTION: 
This ago bete | saoyee cails to LIBSFR E VM to free virtual 
penory acquired by classes for multi-file summary buffers and 
(for homogeneous classes) super element ID tables. No status 
code checking is done, since this routine is in a cleanup path. 
INPUTS: 
None 
IMPLICIT INPUTS: 
The CDOBSL_SUMBUF, CDBSA_SUMBUF, CDXSL_SELIDTABLE and CDXSA_SELIDTABLE 
fields contain the Length and address, respectively, of memory 
blocks to be freed (for each class in this MONITOR request). 
MFSPTR = pointer to Multi-File Summary Block 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
Memory is freed. Pointers to freed memory are cleared to 0. 
ROUTINE VALUE: 
NORMAL 
SIDE EFFECTS: 
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O1FC 
57 soccecee" Er DO 


sENTRY MFS_FREE_MEM, “M<R2,R3,R4,R5,R6,R7,R8> 
MOVL MFESPTR,R7 3; Load MFS p 
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04 f 208 CLRL R5 ; Init weekion th bit position 
53 20 00 MOVL #32,R3 ; Init bit field size 
. ; NOTE -- must handle in 32-bit chunks 
52 55 00 06 ; 30s MOVL R5,R2 : Init start position of next chunk 
54 67 53 52 €EA 06 : FFS R2,R3,MFS$O -CLASSBITS(R7) ,R4 ; Search for next class number 
. 3 R4 contains class no. found 
0E 1 631 BEQL 408 : Branch if none found this chunk 
a f BSBB FREE CLASS 3; Free memory for ays class 
3 ¢ C : ADDL R RS : Compute next and. fi ng 
52 4 C : ADDL #1,R4,R2 ; posit gn an one ield size 
3 2 C2 063C¢ SUBL R2,R3 $ eco Vor th 
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MFS_FREE_MEM = Free Virtual Memory for m 5-SEP-1984 7:02:41 MONTOR.SRCJSUMMBUF F .MAR; 1 (24) 
eB 11 if ] : 40s: BRB 30$ 3; Go search rest of chunk 
FFOD 55) «620 «=: 0000"8F 3D 2 ! § : ACBW #MAX_CLASS_NO,#32,R5,20$ ; Loop to process next chunk 
50 00000000'EF B? 49 1 3 MOVL NORMAL , RO 3; Set normal status 
} 23 RET 3; Return 
a FREE_CLASS: : free class aonery 
} ' 3 NOTE -- R4 contains class number 
56 54 00000053 8 5 51 1364 MULL3 #CDBSK siz oR4,R6 ; Compute offset to desired CDB 
56 00000000'EF46 E 3 } 92 MOVAB CDBHEABLR6].R6. 3: Index to CDB address 
oc 46 i) $6] 1 ¢9 TSTL cpBsA. SUMBUF (R6) : Is there a m.f. summary buffer? 
1 1 664 1 oe BEQL : Branch if not 
Oc A6 ODF 096 1 : PUSHAL CDBSA_SUMBUF (R6) ; Stack addr of buff pet 
0 a8 DF 0669 1370 PUSHAL cpesL SUMBUF (R6) 3; Stack addr of buffer ength 
00000000'GF 0 FB 066 1371 CALLS G*CIBSFREE_VM 3; Free it 
OC A6 4 a : es 208 CLRL Co6SA- 1 ORBLE ERC) 3 clear aetrees 
19 48 A6 = 05_—s 1 676 1374 : BBC #COBSV pores CDBSL FE ae ; Br if a hetero class 
58 3206 D 0678 1375 MOVL § CDBSA_COX(R65 RB ; CDX’ address 
18 Aw OD 67F 137 TSTL GDXSA. “SEE IR TABLE (RB) : ny there a super element ID tab? 
10 13 0682 137 BEQL 0$ : Branch if not 
18 AB ODF 0684 1378 PUSHAL CDX$A_ rigid ate t 3; Stack addr of table 
14 AB DF 0687 1379 PUSHAL 5ox X$L~SELIDTABLE (R8) : Stack addr of table Length 
90000000'GF 02 FB O68A 1380 CALLS G*CIBSFREE VM ; Free it 
18 AB D4 24H Iie) 30$ CLRL CSiSa _SELIDTABLE (R8) : Clear a htews 
05 0694 1388 " — RSB ; Return 
695 1384 
95 1385 .END 
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Symbol table . aes $3 :08i24 ERONTOR. SRE ISUMMBUF F MAR; 1 (38) 
MFSS$S “SL ASSOITS = 0000 19 MRBS$V_DIS_CL_REQ = 8 
MFS$S_ENDING = MRBSV_FILCER = F 
MFSS$S_ = D MRBSV_INDEFEND = 4 
MFS$W_CLASSCT = 8 MRBSV_INP_CL_REQ = 06 
MFSPTR eeveneee =X = 03 MRBSV_MFSOM = 8 
STR BA 888000 RG B¢ MRBS$V_PLAYBAC = 3 8 
MFS_FREE_MEM 00000618 RG MRBSV_PROC_REQ = OE 
NODES 0000052 RG 01 MRBSV_RECORD = 44 | 
“NOD_ SE = 00000016 G MRBSV_REC_CL_REQ = $ 7 | 
MFS_STHEADi_STR OOOOOF9 RG 4 MRBSV_ SUMMARY = 0 its 
MFS_STHEAD2 STR 00 OnIE RG 1 MRBSV_SUM_CL_REQ = 000000 
MFS_TIME_STR 8 44 RG 01 MRBSV_SYSCLS = 4 B098 
MFS-TIM SEGLEN = 00 G MRBSW_CLASSCT = 9 
MF _STATAEAD STR 00000030 RG 01 MRBSW" FLAGS = 0000004 
MF SUMM1_STR 00000000 RG 01 MRBPTR eeeeenee = YX 03 
MIN_STAT = 0000000 NORMAL weeeenee = X 03 
MNRS_TABLEFULL eeeeeeee =X = 03 PERF TABLE aeeneeee =X 03 
MODES CLSNO eeerenee = X 03 PROCDISPS = 00000005 
MON_ERR eeeeeeee =X 03 REG_PROC = 00000000 
MRB = 00000000 S$S$_NORMAL aeeeeeee =X 03 
$SA_COMMENT = 0000002C STACK_STATS QO0001DE R 03 
MRBSA_DISPLAY = 00000020 STATS = at 
— INPUT = 0000001C STATS_STR 00000189 R 01 
MRBSA_RECORD = 00000024 SUM_TO_SUMMBUF F 000004AB R 03 
MRBSA_SUMMARY = 00000028 TEMP_2- BLOC = 00000000 
MRBS$B_INP FILES = 4444 4k TEMP 3 BLOCK = 00000000 
MRBSK_SIZE = 0000004 TM2SR_SIZE = QOOOO0TE 
MRBSL_ =fLUSH = 00000014 TM2$L_COLLS = 00000014 
MRBSL_ INTERVAL = Bop OS TS TM2$L_COLS = 00000004 
MRBSL_VIEWING TIME = 0000001 TM2$L_COLS_USED = 0000000C 
MRBSM_ALL_ CLASS = 40000400 TM2$L_COL_SIZE = 00000008 
MRBSM_ 7s = 00001000 TM2$L_ELEMS = 00000018 
MRBSM_DISPL = 00000001 TM2$L_SECONDS = 00000010 
MRBSM_DISP_TO_FILE = a4 sf 3 TM2$L_START_COL = 4 4 
MRBSM_DIS CL_R = 00000100 TM2$S_TEMP_2 BLOCK = 0000001E 
MRBSM_INDEF ERD = sie 4 4th Tigsw EER TYPE = 0000001C 
anal INP_CL_REQ = 00000040 TM3$A_SBCOC = 0000000C 
MFSOM ~ = 00000800 TM3$B_F OUND = 00000014 
ARES” PLAYBACK = 4 4g 9 TM3$K_SIZE = 00000015 
MRBSM_PROC_REQ = 00004000 TM3$SL_INPIDX = 00000000 
MRBSM_RECORD = see 4 TMSSL_ITEMS = 00000008 
MRBSM_REC CL_REQ = 9494 44 TM3$L_SBLEN = 464 Oh 
MRBSM_SUMAA = 00000004 TMSSL_SUPIDX = 00000004 
MRBSM_SUM_CL_REQ = : 3 TM3$S_TEMP_3_BLOCK = 88 Baie 
MRBSM_ SSCL = TOPB_PROC = 00 
MRBSO_ SLAs serts = 000000 TOPC_ PROC = 4 0001 
mreta-ewsine = 20000098 196 pase = 10090808 
MRB GINNING = 6 5 0 UPD_STATS 000001 AE a 03 
MRBS$S_CLASSBITS = 1 
MRBS$S_ENDING = 
RRBs FLAGS = 
“AR = 4 
ARESV ALL CLASS = A 
mResV_ 7 enODE = C | 
MRBSV- Disp 10. FILE = 000 
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PSECT name Allocation PSECT No. Attributes 


Ss 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
MONRODATA 00000189 ¢ 441.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR NOEXE 
MONDATA 00000080 ¢ rs ‘ ( & NOPIC USR CON REL LCL NOSHR NOEXE RD 
SSMONCODE 00000695 ( 1685.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD 


n alization 2:00:00. 2:00:00. 

Initializati 9 00:00:00.07 00:00:00.96 
Command processing 108 00:00:00.77 00:00:03.49 
Pass 1 200 Ss SE oe 24 00:00:11.82 
eB table sort 0 88:80:05" 2 00:00:00.71 
Pass 2 244 00:00:03.01 00:00:06.90 
Symbol table output $9 280280 -6f 00:00:01.90 
Psect synopsis output 00:00:00.03 00:00:00.03 
Cross-reference output 2 00:00:00.00 00:00:00.00 
Assembler run totals 62 00:00:09.56 00:00:25.84 


The working set Limit was 1500 pages. 

32415 bytes (64 pages) of virtual memory were used to buffer the intermediate code. 

{pere were 30 pages of symbol table space gi tesete to hold 334 non-local and 85 Local symbols. 
1385 source lines were read in Pass 1, "eee object records in Pass 2 

16 pages of virtual memory were used to define 11 macros. 


erees weer - eee ew em ewe mere wn} 


Macro Library name Macros defined 


-8255$DUA28: oes BJ JMONL IB. MLB; 1 10 
“$255$DUA28: (SYS .OBJILI 0 
“$255$DUA28: SYS IBISTARLET. ie: 2 0 
TOTALS (all Libraries) 10 


299 GETS were required to define 10 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: SUMMBUF F /OBJ=0BJ$:SUMMBUFF MSRC$: SUMMBUF F /UPDATE=(ENHS : SUMMBUFF ) +EXECMLS$/L1B+L1B$:MONLIB/LIB 
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NOWRT NOVEC BYTE 
NOWRT NOVEC QUAD 

WRT NOVEC QUAD 
NOWRT NOVEC BYTE 
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